####	Exerccio 1- Introduo ao R	####

### Basta Mudar o Diretrio?

	#Qual o comando voc usou para mudar o diretrio de trabalho?
	>setwd()
  
	#Este comando bastou para restituir o workspace? Se no, que outro comando  necessrio?
	>source("regressao.r")

### Um Comando Perigoso

	#1.H um comando simples com a funo rm que apaga todos os objetos de sua rea de trabalho. Qual ?
	>rm(list=ls())
	> ls()
	character(0)

    
	#Suponha que voc tenha digitado este comando. De que maneira poderia evitar a perda definitiva de todos os objetos apagados?
	Tendo salvo o script, tentar sair usando q() sem salvar as alteraes, usando a funo >save.image() ou >save(file="nomequalquer.RData") regularmente 
	
### Remoo Com Critrio

	#Carregue o arquivo bichos.rdata no seu workspace. Como remover apenas os objetos cujos nomes comeam com temp de seu workspace?
> load("bichos.rdata")
> ls()
[1] "a"         "anfibios"  "aves"      "b"         "mamiferos" "pesos"    
[7] "pesos.dif" "temp1"     "temp2"     "temp3"    
> rm(list=ls(pattern="temp"))
> ls()
[1] "a"         "anfibios"  "aves"      "b"         "mamiferos" "pesos"    
[7] "pesos.dif"



### Classes de Objetos

	#A distribuio bsica do R vem com os objetos letters e LETTERS.
		#Descubra o que cada um contm.
		#Descubra a classe de cada um.
		#Como voc os transformaria em objetos da classe fator?
> letters
 [1] "a" "b" "c" "d" "e" "f" "g" "h" "i" "j" "k" "l" "m" "n" "o" "p" "q" "r" "s"
[20] "t" "u" "v" "w" "x" "y" "z"
> LETTERS
 [1] "A" "B" "C" "D" "E" "F" "G" "H" "I" "J" "K" "L" "M" "N" "O" "P" "Q" "R" "S"
[20] "T" "U" "V" "W" "X" "Y" "Z"
> class(letters)
[1] "character"
> class(LETTERS)
[1] "character"

> letters.f<-factor(letters)
> class(letters.f)
[1] "factor"
> LETTERS.f<-factor(LETTERS)
> class(LETTERS.f)
[1] "factor"

		

### Objetos de Data

	#A funo Sys.Date retorna a data fornecida pela CPU do computador. Crie um objeto chamado hoje para guardar o resultado deste comando: 
	#Qual  a classe deste objeto?
	#Qual a diferena em dias desta data e do dia em que o Brasil foi tricampeo mundial 1)?
	#Qual ser a data de daqui a 43 dias?

> hoje <- Sys.Date() 

> class(hoje)
[1] "Date"

> copa.70 <- "21/06/70"
> copa.70 <- as.Date(copa.70,format="%d/%m/%y")
> hoje - copa.70
Time difference of 15247 days

> hoje - copa.70 + 43
Time difference of 15290 days
